home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / FORM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  5.0 KB  |  121 lines
  1. 10  CLEAR
  2. 20  CLS
  3. 30  KEY OFF
  4. 40  SCREEN 0,0,0
  5. 50  WIDTH 80
  6. 60  LOCATE 1,1,0
  7. 70  LOCATE 2,2:PRINT "M A T H  P A K  F O R M U L A  A N D  C O N V E R S I O N  S H E E T "
  8. 80  LOCATE 5,5:PRINT "In this section of MATH PAK,the user can reference "
  9. 90  LOCATE 6,5:PRINT "several different varieties of formulas and conversions."
  10. 100  LOCATE 8,5:PRINT "Please make a note of the following symbols used in this"
  11. 110  LOCATE 9,5:PRINT "section."
  12. 120  LOCATE 12,5:PRINT "SYMBOL":LOCATE 12,54:PRINT "MEANING "
  13. 130  LOCATE 14,5:PRINT " ^":LOCATE 14,52:PRINT "EXPONENT(RAISED TO A POWER)"
  14. 140  LOCATE 16,5:PRINT " *":LOCATE 16,52:PRINT "MULTIPLICATION PROCESS"
  15. 150  LOCATE 18,5:PRINT "/" :LOCATE 18,52:PRINT "DIVISION PROCESS"
  16. 160  LOCATE 20,5:PRINT "PI":LOCATE 20,52:PRINT "VALUE OF 3.141593(or 22/7)"
  17. 170  LOCATE 22,5:PRINT "SQR":LOCATE 22,52:PRINT "SQUARE ROOT "
  18. 180  LOCATE 23,20:PRINT "PRESS SPACE BAR TO CONTINUE "
  19. 190  A$ = INKEY$
  20. 200  IF A$ = CHR$(32) THEN 220
  21. 210  GOTO 190
  22. 220  CLS
  23. 230  LOCATE 1,60:PRINT "page 2"
  24. 240  LOCATE 2,2:PRINT "area of a square is  = side ^ 2 "
  25. 250  LOCATE 3,2:PRINT "area of a rectangle is = length * width "
  26. 260  LOCATE 4,2:PRINT "area of a circle is = (PI/4) * (dia. ^ 2) = .7854 * (dia. ^ 2) "
  27. 270  LOCATE 5,2:PRINT "area of a circle is = PI * (rad. ^ 2) = 3.142 * (rad. ^ 2) "
  28. 280  LOCATE 6,2:PRINT "area of a triangle is = ( base * height ) * .5 "
  29. 290  LOCATE 7,2:PRINT "area of a cube is = 6 * (side ^ 2) "
  30. 300  LOCATE 8,2:PRINT "area of a trapeziod is = ( height * (base + top side)) / 2"
  31. 310  LOCATE 9,2:PRINT "area of a parallelogram is = base * height "
  32. 320  LOCATE 11,2:PRINT "Some conversions :"
  33. 330  LOCATE 13,2:PRINT "1 inch = 2.54 cm. "
  34. 340  LOCATE 14,2:PRINT "1 cm. = 0.3937 in. "
  35. 350  LOCATE 15,2:PRINT "1 foot = 0.3048 meter "
  36. 360  LOCATE 16,2:PRINT "1 meter = 3.28 feet = 39.37 inches "
  37. 370  LOCATE 17,2:PRINT "1 yard = 3 feet = 0.9144 meter "
  38. 380  LOCATE 18,2:PRINT "1 cu. inch = 16.39 cu. cm. "
  39. 390  LOCATE 19,2:PRINT "1 mile = 5280 feet "
  40. 400  LOCATE 20,2:PRINT "1 mile = 1.61 kilometers "
  41. 410  LOCATE 21,2:PRINT "1 sq. inch = 6.452 sq. cm. "
  42. 420  LOCATE 23,20:PRINT "PRESS SPACE BAR TO CONTINUE "
  43. 430  A$ = INKEY$
  44. 440  IF A$ = CHR$(32) THEN 460
  45. 450  GOTO 430
  46. 460  CLS
  47. 470  LOCATE 1,60:PRINT "page 3"
  48. 480  LOCATE 3,2:PRINT "1 sq. cm. = 0.155 sq. in. "
  49. 490  LOCATE 4,2:PRINT "1 Hectare = 10000 sq. meters = 2.47 acres "
  50. 500  LOCATE 5,2:PRINT "2 pints = 1 quart "
  51. 510  LOCATE 6,2:PRINT "4 quarts = 1 gallon "
  52. 520  LOCATE 7,2:PRINT "1 fathom = 6 feet "
  53. 530  LOCATE 8,2:PRINT "1 ounce = 28.35 grams "
  54. 540  LOCATE 9,2:PRINT "16 ounces = 1 pound "
  55. 550  LOCATE 10,2:PRINT "2000 pounds = 1 ton "
  56. 560  LOCATE 11,2:PRINT "2240 pounds = 1 long ton "
  57. 570  LOCATE 12,2:PRINT "A degree of the Earth's surface(a meridian) = 69.16 miles "
  58. 580  LOCATE 13,2:PRINT "1 atmosphere = 29.92 inches of mercury"
  59. 590  LOCATE 14,2:PRINT "1 atmosphere = 34 feet of water "
  60. 600  LOCATE 15,2:PRINT "1 kilowatt = 1.34 Horsepower "
  61. 610  LOCATE 16,2:PRINT "1 Horsepower = 746 watts "
  62. 620  LOCATE 17,2:PRINT "1 pound = .4536 kilograms "
  63. 630  LOCATE 18,2:PRINT "1 kilogram = 2.205 pounds "
  64. 640  LOCATE 19,2:PRINT "1 gram = 0.0353 ounces "
  65. 650  LOCATE 20,2:PRINT "1 liter = 2.113 pints = 1.057 quarts = 0.264 gallons "
  66. 660  LOCATE 23,20:PRINT "PRESS SPACE BAR TO CONTINUE"
  67. 670  A$ = INKEY$
  68. 680  IF A$ = CHR$(32) THEN 700
  69. 690  GOTO 670
  70. 700  CLS
  71. 710  LOCATE 1,60:PRINT "page 4"
  72. 720  LOCATE 3,2:PRINT "Pythagorean Theorem(right triangles) = (c^2) = (a^2) + (b^2) "
  73. 730  LOCATE 4,2:PRINT "a slope of a line = rise / run = (y2 - y1) / (x2 - x1) "
  74. 740  LOCATE 5,2:PRINT "a horizontal line has a slope = 0 "
  75. 750  LOCATE 6,2:PRINT "slope-intercept equation of a line is, y = mx + b (m = slope;b = y-intercept) "
  76. 760  LOCATE 7,2:PRINT "distance formula(between two points) is"
  77. 770  LOCATE 8,10:PRINT "d = SQR(((x1 - x2)^2) + ((y1 - y2)_^2))"
  78. 780  LOCATE 9,2:PRINT "equation of a circle(center(a,b) and radius(r)) is "
  79. 790  LOCATE 10,10:PRINT "(r^2) = ((x -a)^2) + ((y - b)^2)"
  80. 800  LOCATE 11,2:PRINT "equation of an ellipse(center at(0,0)) is"
  81. 810  LOCATE 12,10:PRINT "((x^2) / (a^2)) + ((y^2) / (b ^2)) = 1      a,b > 0"
  82. 820  LOCATE 13,2:PRINT "equation of a hyperbola(center at(0,0)) is "
  83. 830  LOCATE 14,2:PRINT "((x^2) / (a ^2)) - ((y^2) / (b^2)) = 1    (axis horizontal) "
  84. 840  LOCATE 15,2:PRINT "((y^2) / (b^2)) - ((x^2) / (a^2)) = 1     (axis vertical) "
  85. 850  LOCATE 16,2:PRINT "((a / b)^n) = (a^n) / (b^n)"
  86. 860  LOCATE 17,2:PRINT "a^(m/n) = the nth root of (a^m)"
  87. 870  LOCATE 18,2:PRINT "a^(-m/n) = 1 / a^(m/n)"
  88. 880  LOCATE 19,2:PRINT "(a + b) * (c + d) = a*c + a*d + b*c + b*d"
  89. 890  LOCATE 20,2:PRINT "((a + b)^2) = (a^2) + 2*a*b + (b^2)"
  90. 900  LOCATE 21,2:PRINT "((a -b)^2) = (a^2) - 2*a*b + (b^2)"
  91. 910  LOCATE 23,20:PRINT "PRESS SPACE BAR TO CONTINUE"
  92. 920  A$ = INKEY$
  93. 930  IF A$ = CHR$(32) THEN 950
  94. 940  GOTO 920
  95. 950  CLS
  96. 960  LOCATE 1,60:PRINT "page 5"
  97. 970  LOCATE 3,2:PRINT "(a + b) * ( a - b) = (a^2) - (b^2)"
  98. 980  LOCATE 4,2:PRINT "(a^3) + (b^3) = (a + b) * ((a^2) - (a * b) + (b^2)"
  99. 990  LOCATE 5,2:PRINT "(a^3) - (b^3) = (a - b) * ((a^2) + (a * b) + (b^2))"
  100. 1000  LOCATE 6,2:PRINT "BINARY":LOCATE 6,14:PRINT "DECIMAL":LOCATE 6,24:PRINT "HEXIDECIMAL CONVERSIONS"
  101. 1010  LOCATE 7,2:PRINT "0000":LOCATE 7,15:PRINT "0":LOCATE 7,28:PRINT "0"
  102. 1020  LOCATE 8,2:PRINT "0001":LOCATE 8,15:PRINT "1":LOCATE 8,28:PRINT "1"
  103. 1030  LOCATE 9,2:PRINT "0010":LOCATE 9,15:PRINT "2":LOCATE 9,28:PRINT "2"
  104. 1040  LOCATE 10,2:PRINT "0011":LOCATE 10,15:PRINT "3":LOCATE 10,28:PRINT "3"
  105. 1050  LOCATE 11,2:PRINT "0100":LOCATE 11,15:PRINT "4":LOCATE 11,28:PRINT "4"
  106. 1060  LOCATE 12,2:PRINT "0101":LOCATE 12,15:PRINT "5":LOCATE 12,28:PRINT "5"
  107. 1070  LOCATE 13,2:PRINT "0110":LOCATE 13,15:PRINT "6":LOCATE 13,28:PRINT "6"
  108. 1080  LOCATE 14,2:PRINT "0111":LOCATE 14,15:PRINT "7":LOCATE 14,28:PRINT "7"
  109. 1090  LOCATE 15,2:PRINT "1000":LOCATE 15,15:PRINT "8":LOCATE 15,28:PRINT "8"
  110. 1100  LOCATE 16,2:PRINT "1001":LOCATE 16,15:PRINT "9":LOCATE 16,28:PRINT "9"
  111. 1110  LOCATE 17,2:PRINT "1010":LOCATE 17,14:PRINT "10":LOCATE 17,28:PRINT "A"
  112. 1120  LOCATE 18,2:PRINT "1011":LOCATE 18,14:PRINT "11":LOCATE 18,28:PRINT "B"
  113. 1130  LOCATE 19,2:PRINT "1100":LOCATE 19,14:PRINT "12":LOCATE 19,28:PRINT "C"
  114. 1140  LOCATE 20,2:PRINT "1101":LOCATE 20,14:PRINT "13":LOCATE 20,28:PRINT "D"
  115. 1150  LOCATE 21,2:PRINT "1110":LOCATE 21,14:PRINT "14":LOCATE 21,28:PRINT "E"
  116. 1160  LOCATE 22,2:PRINT "1111":LOCATE 22,14:PRINT "15":LOCATE 22,28:PRINT "F"
  117. 1170  LOCATE 23,15:PRINT "PRESS SPACE BAR TO RETURN TO FLOW "
  118. 1180  A$ = INKEY$
  119. 1190  IF A$ = CHR$(32) THEN CLS:CLEAR:CHAIN "FLOW"
  120. 1200  GOTO 1180
  121.